* print.c: Integer overflow fix.

(print_object): Use ptrdiff_t, not int, for index that can
exceed INT_MAX.

diff --git a/src/ChangeLog b/src/ChangeLog
index de916618583a428e3c19b973ee9a405c178f6229..dc72b7e39470bb1c1121083fb6dda131a361c65b 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,5 +1,9 @@
 2011-09-04  Paul Eggert  <eggert@cs.ucla.edu>
 
+       * print.c: Integer overflow fix.
+       (print_object): Use ptrdiff_t, not int, for index that can
+       exceed INT_MAX.
+
        * indent.c: Integer overflow fixes.
        (position_indentation): Now takes ptrdiff_t, not int.
        (Fvertical_motion): Don't wrap around LINES values that don't fit

diff --git a/src/print.c b/src/print.c
index 35f898608433e81454da77a96c8818ca5b1faece..913a14b3e4289c121c60711cc42527f9a9a6752b 100644 (file)
--- a/src/print.c
+++ b/src/print.c
@@ -1697,7 +1697,7 @@ print_object (Lisp_Object obj, register Lisp_Object printcharfun, int escapeflag
        }
       else if (BOOL_VECTOR_P (obj))
        {
-         register int i;
+         ptrdiff_t i;
          register unsigned char c;
          struct gcpro gcpro1;
          EMACS_INT size_in_chars